-- card: 4172 from stack: in.d_o
-- bmap block id: 4366
-- flags: 0000
-- background id: 4069
-- name: game


-- part 2 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=17 top=24 right=45 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 3 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=93 top=24 right=45 bottom=155
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: bet


-- part 4 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=308 top=24 right=45 bottom=415
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 5 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=414 top=24 right=45 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: stake
----- HyperTalk script -----




-- part 6 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=15 top=257 right=339 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: 


-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=383 top=270 right=324 bottom=437
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Die 1


-- part 8 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=450 top=270 right=324 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Die 2


-- part 9 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=190 top=24 right=46 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Roll
----- HyperTalk script -----
on mouseUp
  --clear dice
  put empty into card field "Die 1"
  put empty into card field "Die 2"
  -- roll dice
  put random(6) into a
  put random(6) into b
  play "dice"
  -- display dice
  put bkgnd field a into card field "Die 1"
  put bkgnd field b into card field "Die 2"
  --payoff
  set NumberFormat to 00.00
  put a+b into roll
  if card field "bet" = "Under 7" then
    if roll <7 then
      put card field "stake" + .25 into card field "stake"
    else
      put card field "stake" - .25 into card field "stake"
    end if
  end if
  if card field "bet" = "Over 7" then
    if roll > 7 then
      put card field "stake" + .25 into card field "stake"
    else
      put card field "stake" - .25 into card field "stake"
    end if
  end if
  if card field "bet" = "7" then
    if roll = 7 then
      put card field "stake" + 1 into card field "stake"
    else
      put card field "stake" - .25 into card field "stake"
    end if
  end if
  if card field "stake" > 99.95 then
    answer "You beat the odds and broke the bank!!"
    play "Hallelujah"
    answer "You may waive your shareware fee!!"
    domenu "Home"
  else
    if card field "stake" < .10 then
      answer "You’re busted, Pal.  $10 shot to hell!"
      play "Beethoven5a"
      answer "REMINDER: Shareware fee is a mere $1.00" with "BYE!"
      domenu "Home"
    end if
  end if

end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=486 top=23 right=45 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  go to card id 5341 of stack "Home"
end mouseUp




-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=16 top=53 right=250 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Under 7
----- HyperTalk script -----
on mouseUp
  put "Under 7" into card field "bet"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=184 top=53 right=250 bottom=295
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 7
----- HyperTalk script -----
on mouseUp
  put "7" into card field "bet"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=299 top=53 right=250 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Over 7
----- HyperTalk script -----
on mouseUp
  put "Over 7" into card field "bet"
end mouseUp



-- part contents for background part 1
----- text -----

  •


-- part contents for background part 2
----- text -----
•

    •

-- part contents for background part 3
----- text -----
•
  •
    •

-- part contents for background part 4
----- text -----
•       •

•   •

-- part contents for background part 5
----- text -----
•       •
  •
•   •

-- part contents for background part 6
----- text -----
•       •
•       •
•       •

-- part contents for card part 2
----- text -----
Your bet is:

-- part contents for card part 3
----- text -----
Over 7

-- part contents for card part 4
----- text -----
Your stake is:  $

-- part contents for card part 5
----- text -----
10.00

-- part contents for card part 6
----- text -----
Choose the type of bet you want to make, click on it once to wager 25¢ and hit “Roll”.  
Rack up $100 and you have truly won a longshot.
FOR ENTERTAINMENT USE ONLY!

-- part contents for card part 7
----- text -----
•       •

•   •

-- part contents for card part 8
----- text -----
•       •
  •
•   •